(read-quoted-char): Bind input-method-function to nil.

diff --git a/lisp/subr.el b/lisp/subr.el
index bf06f6d1699f02d0011edff5226493d3359bcdc1..5f0947d75d5bd12363f196407170226504b6abef 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -723,6 +723,8 @@ for numeric input."
   (let ((message-log-max nil) done (first t) (code 0) char)
     (while (not done)
       (let ((inhibit-quit first)
+           ;; Don't use input methods inside this function.
+           (input-method-function nil)
            ;; Don't let C-h get the help message--only help function keys.
            (help-char nil)
            (help-form